home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / edit / jed207.lha / src / jed.lha / varargs.a < prev    next >
Text File  |  1992-10-18  |  2KB  |  132 lines
  1.  
  2.         ; VARARGS.A
  3.         ;
  4.         ; Assembler tags for 'varargs' style functions I need.
  5.         ;
  6.         ; Since    I'm using -mRR in DCC the standard amiga.lib isn't
  7.         ; brought in --    only the amigasr20.lib which was generated
  8.         ; from the fd's.
  9.  
  10.         section    text,code
  11.  
  12.         xref    _GadToolsBase
  13.         xdef    _LayoutMenus
  14.         xref    _LVOLayoutMenusA
  15.         xdef    _GetVisualInfo
  16.         xref    _LVOGetVisualInfoA
  17.         xdef    _CreateMenus
  18.         xref    _LVOCreateMenusA
  19.  
  20. _LayoutMenus:
  21.         movem.l    a2/a6,-(sp)
  22.         movem.l    12(sp),a0-a1
  23.         lea    20(sp),a2
  24.         move.l    _GadToolsBase(a4),a6
  25.         jsr    _LVOLayoutMenusA(a6)
  26.         movem.l    (sp)+,a2/a6
  27.         rts
  28. _GetVisualInfo:
  29.         move.l    a6,-(sp)
  30.         move.l    8(sp),a0
  31.         lea    12(sp),a1
  32.         move.l    _GadToolsBase(a4),a6
  33.         jsr    _LVOGetVisualInfoA(a6)
  34.         move.l    (sp)+,a6
  35.         rts
  36. _CreateMenus:
  37.         move.l    a6,-(sp)
  38.         move.l    8(sp),a0
  39.         lea    12(sp),a1
  40.         move.l    _GadToolsBase(a4),a6
  41.         jsr    _LVOCreateMenusA(a6)
  42.         move.l    (sp)+,a6
  43.         rts
  44.  
  45.  
  46.         xref    _DOSBase
  47. ;        xdef    _AllocDosObjectTags
  48. ;        xref    _LVOAllocDosObject
  49.         xdef    _SystemTags
  50.         xref    _LVOSystemTagList
  51.         xdef    _Printf
  52.         xref    _LVOVPrintf
  53.         xdef    _FPrintf
  54.         xref    _LVOVFPrintf
  55.  
  56. ;_AllocDosObjectTags:
  57. ;        movem.l    d2/a6,-(sp)
  58. ;        move.l    12(sp),d1
  59. ;        lea    16(sp),a0
  60. ;        move.l    a0,d2
  61. ;        move.l    _DOSBase(a4),a6
  62. ;        jsr    _LVOAllocDosObject(a6)
  63. ;        movem.l    (sp)+,d2/a6
  64. ;        rts
  65.  
  66. _SystemTags:
  67.         movem.l    d2/a6,-(sp)
  68.         move.l    12(sp),d1
  69.         lea    16(sp),a0
  70.         move.l    a0,d2
  71.         move.l    _DOSBase(a4),a6
  72.         jsr    _LVOSystemTagList(a6)
  73.         movem.l    (sp)+,d2/a6
  74.         rts
  75. _Printf:
  76.         movem.l    d2/a6,-(sp)
  77.         move.l    12(sp),d1
  78.         lea    16(sp),a0
  79.         move.l    a0,d2
  80.         move.l    _DOSBase(a4),a6
  81.         jsr    _LVOVPrintf(a6)
  82.         movem.l    (sp)+,d2/a6
  83.         rts
  84. _FPrintf:
  85.         movem.l    d2-d3/a6,-(sp)
  86.         movem.l    16(sp),d1-d2
  87.         lea    24(sp),a0
  88.         move.l    a0,d3
  89.         move.l    _DOSBase(a4),a6
  90.         jsr    _LVOVFPrintf(a6)
  91.         movem.l    (sp)+,d2-d3/a6
  92.         rts
  93.  
  94.  
  95.         xref    _AslBase
  96.         xdef    _AllocAslRequestTags
  97.         xref    _LVOAllocAslRequest
  98.         xdef    _AslRequestTags
  99.         xref    _LVOAslRequest
  100.  
  101. _AllocAslRequestTags:
  102.         move.l    a6,-(sp)
  103.         move.l    8(sp),d0
  104.         lea    12(sp),a0
  105.         move.l    _AslBase(a4),a6
  106.         jsr    _LVOAllocAslRequest(a6)
  107.         move.l    (sp)+,a6
  108.         rts
  109. _AslRequestTags:
  110.         move.l    a6,-(sp)
  111.         move.l    8(sp),a0
  112.         lea    12(sp),a1
  113.         move.l    _AslBase(a4),a6
  114.         jsr    _LVOAslRequest(a6)
  115.         move.l    (sp)+,a6
  116.         rts
  117.  
  118.  
  119.         xref    _IntuitionBase
  120.         xdef    _OpenWindowTags
  121.         xref    _LVOOpenWindowTagList
  122.  
  123. _OpenWindowTags:
  124.         move.l    a6,-(sp)
  125.         move.l    8(sp),a0
  126.         lea    12(sp),a1
  127.         move.l    _IntuitionBase(a4),a6
  128.         jsr    _LVOOpenWindowTagList(a6)
  129.         move.l    (sp)+,a6
  130.         rts
  131.  
  132.